MacFormat 1996 April/MacFormat CD Edition MF36 (April 1996).iso/Shareware City/HyperCard/XCMD Docs/CompileIt! Source Code/GetFactors(num)

Text File | 1995-08-20 | 179 b | 8 lines | [TEXT/ttxt]

function GetFactors num
  put num*1 into x
  repeat with y=1 to x
    if (x mod y)=0 then put y & "," after list
  end repeat
delete last char of list
  return list
end GetFactors